home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DAS / A-C / Addtxt15.cpt / Address to Text Stack 1.5 / card_3033.txt < prev    next >
Text File  |  1990-08-04  |  3KB  |  127 lines
  1. -- card: 3033 from stack: in.5
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 13 (button)
  9. -- low flags: 00
  10. -- high flags: A006
  11. -- rect: left=56 top=265 right=285 bottom=94
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: CR
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if hilite of me is true then
  23.     hide msg
  24.     set hilite of card button "Tab" to false
  25.     set hilite of card button "Other" to false
  26.   end if
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 14 (button)
  32. -- low flags: 00
  33. -- high flags: E006
  34. -- rect: left=129 top=265 right=285 bottom=172
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Tab
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   if hilite of me is true then
  46.     hide msg
  47.     set hilite of card button "CR" to false
  48.     set hilite of card button "Other" to false
  49.   end if
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 15 (button)
  55. -- low flags: 00
  56. -- high flags: A006
  57. -- rect: left=196 top=265 right=285 bottom=254
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Other
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   if hilite of me is true then
  69.     set hilite of card button "CR" to false
  70.     set hilite of card button "Tab" to false
  71.     put empty into field "field_del"
  72.     click at the location of field "Field_del"
  73.   end if
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part 17 (field)
  79. -- low flags: 81
  80. -- high flags: 2004
  81. -- rect: left=33 top=92 right=248 bottom=478
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 2
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: About
  90. ----- HyperTalk script -----
  91. on mouseup
  92.   set visible of me to false
  93. end mouseup
  94.  
  95.  
  96. -- part 18 (button)
  97. -- low flags: 00
  98. -- high flags: A003
  99. -- rect: left=343 top=264 right=288 bottom=457
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Reset Defaults
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   hide msg
  111.   put empty into field "message"
  112.   set hilite of background button "CR" to false
  113.   set hilite of card button "Tab" to false
  114.   put empty into field "Rec_del"
  115.   put empty into field "Field_del"
  116.   click at location of background button "CR"
  117.   click at location of card button "Tab"
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part contents for card part 17
  123. ----- text -----
  124.      This Stack will convert your Address Stack into a standard text file named "Add->Text" (in your Hypercard folder) for importing into another database or a mail merge program. It will separate each card into 12 Fields -- Fields 1 & 2 are for First and Last Names, Fields 3 - 8 are for the Addresses, Fields 9-11 are for the Phone Numbers, and Field 12 becomes the End of Record Deliminator.
  125.  
  126.       Freeware, ¬© 1990 Paul Bresciani, Version 1.0, July 25, 1990
  127.    Compuserve 76367,2641 - AOL 'BRESCIANI' - Delphi 'BRESCIAN'